// 神话世界·西游记·版本４．５０
/* <SecCrypt CPL V3R05> */

/*
 * File    : mudlist_a.c
 * Creator : Pinkfish@Discworld
 *         : Grendel@Tmi-2
 * When    : 93-08-15
 *
 * This file is part of the tmi mudlib.  Please keep this header intact.
 *
 * This protocol is used to send a mudlist in response to mudlist_q.
 */

// Ported to ES2 mudlib by Annihilator@ES2 (06/15/95)
inherit F_CLEAN_UP;

#include <mudlib.h>
#include <net/dns.h>
#include <net/macros.h>



int have_mudlist = 0;

void create() {   seteuid(ROOT_UID); }

// Someone replyed to our query and has sent us their mudlist.
void incoming_request(mapping info)
{
   string *junk;

   if(!ACCESS_CHECK(previous_object())) return;

   // the keys to info are number identifying each mud
   junk = keys(info);
   if(sizeof(junk)) have_mudlist = 1;

   filter_array(junk, "process_list", this_object(), info);
}

int process_list(string idx, mapping info)
{
   string *inf, name, value;
   int j;
   mapping nnew, old;

   if(previous_object() != this_object()) return 0;

   // each entry consists of '|' separated fields
   inf = explode(info[idx], "|");

   // build up the mapping for the individual muds
   nnew = ([ ]);
   j = sizeof(inf);
   while (j--) if (sscanf(inf[j], "%s:%s", name, value) == 2)
     nnew[name] = value;
   if(!nnew["NAME"]) return 0;

   // make sure the name is in the proper form
   name = htonn( nnew["NAME"] );
   while( name[strwidth(name)-1] == '.' )
     name = name[ 0..strwidth(name)-2 ];
   nnew["ALIAS"] = nntoh(nnew["NAME"]);

   // already know about ourselves
   if (nnew["NAME"] == Mud_name()) return 0;

   // if we have an entry, we update it, otherwise we add the new entry
   old = DNS_MASTER->query_mud_info(name);

   // if it is a static mud we delete the entry
   if(!DNS_MASTER->dns_mudp(name)) old = 0;

   if (!old) DNS_MASTER->set_mud_info(name, nnew);

   // We don't want to update an old mud info simply because
   // someone else tell us to do so. The info may not be correct.
   // We will only update mud info if we hear directly from that
   // mud. (through ping)
   // -- mon 4/11/98
/*
   else {
     inf = keys(nnew);
     j = sizeof(inf);
     while (j--) old[inf[j]] = nnew[inf[j]];
     DNS_MASTER->set_mud_info(name, old);
   }
*/
   return 0;
}

// these is used by the dns master to find out if we have a mudlist
int clear_db_flag()
{
   if(ACCESS_CHECK(previous_object()))
     have_mudlist = 0;
}

int query_db_flag() { return have_mudlist; }
